home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / mewin.arc / EMACS.ME < prev    next >
Text File  |  1991-03-12  |  4KB  |  158 lines
  1. The following changes to the MicroEmacs 3.10c (and possibly newer)
  2. initialization file, emacs.rc will load the ctags macro file automatically
  3. for editing a C or Fortran file.
  4.  
  5. These changes will also prevent the Function Keys window from popping up when
  6. Emacs is run.  It may still be popped with <F5>.
  7.  
  8. *** emacs.rc    Sun Mar 19 17:30:24 1989
  9. --- sdm.rc    Sat Feb 24 16:25:16 1990
  10. ***************
  11. *** 1,3
  12.   ;    EMACS.RC:    Standard micro Startup program
  13.   ;            for MicroEMACS 3.9d and above
  14.   ;            (C)opyright 1987 by Daniel M Lawrence
  15.  
  16. --- 1,9 -----
  17. + ; SDM.RC, a modified version of emacs.rc
  18. + ; 24 Feb 90    Add levels (like an outliner) for C and Fortran.
  19. + ; 06 Nov 89    Use my Fortran.cmd, instead of Fortran.rc .
  20. + ; 04 May 89    for MicroEmacs 3.10, don't put up the menu.
  21. + ;        load ctags.cmd for C or Fortran files.
  22. + ;
  23.   ;    EMACS.RC:    Standard micro Startup program
  24.   ;            for MicroEMACS 3.9d and above
  25.   ;            (C)opyright 1987 by Daniel M Lawrence
  26. ***************
  27. *** 158,164
  28.   ;    Set up auto CMODE
  29.   
  30.   20    store-macro
  31. !     set %rctmp &sin $cfname "."
  32.       !if &equ %rctmp 0
  33.           !return
  34.       !endif
  35.  
  36. --- 164,171 -----
  37.   ;    Set up auto CMODE
  38.   
  39.   20    store-macro
  40. !     set %extmp &right $cfname 5    ;-- we want the rightmost "."
  41. !     set %rctmp &sindex %extmp "."
  42.       !if &equ %rctmp 0
  43.           !return
  44.       !endif
  45. ***************
  46. *** 162,168
  47.       !if &equ %rctmp 0
  48.           !return
  49.       !endif
  50. !     set %rctmp &mid $cfname &add %rctmp 1 5
  51.       !if &or &seq %rctmp "c" &seq %rctmp "h"
  52.           add-mode "cmode"
  53.       !endif
  54.  
  55. --- 169,175 -----
  56.       !if &equ %rctmp 0
  57.           !return
  58.       !endif
  59. !     set %rctmp &lower &mid %extmp &add %rctmp 1 3
  60.       !if &or &seq %rctmp "c" &seq %rctmp "h"
  61.           add-mode "cmode"
  62.           !if ¬ &sequ &bind M-FNV [key-to-tag]
  63. ***************
  64. *** 165,170
  65.       set %rctmp &mid $cfname &add %rctmp 1 5
  66.       !if &or &seq %rctmp "c" &seq %rctmp "h"
  67.           add-mode "cmode"
  68.       !endif
  69.       !if &seq %rctmp "mss"
  70.           add-mode "wrap"
  71.  
  72. --- 172,182 -----
  73.       set %rctmp &lower &mid %extmp &add %rctmp 1 3
  74.       !if &or &seq %rctmp "c" &seq %rctmp "h"
  75.           add-mode "cmode"
  76. +         !if ¬ &sequ &bind M-FNV [key-to-tag]
  77. +             execute-file ctags.cmd
  78. +             set %ctags_exact TRUE
  79. +             execute-file levels.cmd
  80. +         !endif
  81.       !endif
  82.       !if &or &or &seq %rctmp "for" &seq %rctmp "ftn" &seq %rctmp "f77"
  83.           !if ¬ &sequ $wraphook execute-macro-33
  84. ***************
  85. *** 166,171
  86.       !if &or &seq %rctmp "c" &seq %rctmp "h"
  87.           add-mode "cmode"
  88.       !endif
  89.       !if &seq %rctmp "mss"
  90.           add-mode "wrap"
  91.       !endif
  92.  
  93. --- 178,192 -----
  94.               execute-file levels.cmd
  95.           !endif
  96.       !endif
  97. +     !if &or &or &seq %rctmp "for" &seq %rctmp "ftn" &seq %rctmp "f77"
  98. +         !if ¬ &sequ $wraphook execute-macro-33
  99. +             execute-file fortran.cmd
  100. +             execute-file levels_f.cmd
  101. +         !endif
  102. +         !if ¬ &sequ &bind M-FNV [key-to-tag]
  103. +             execute-file ctags.cmd
  104. +         !endif
  105. +     !endif
  106.       !if &seq %rctmp "mss"
  107.           add-mode "wrap"
  108.       !endif
  109. ***************
  110. *** 234,240
  111.   ;    bring up the function key window
  112.   
  113.       1 split-current-window
  114. !     select-buffer "Function Keys"
  115.       insert-string "f1 search-> f2 <-search █    MicroEMACS:  Text Editor~n"
  116.       insert-string "f3 hunt->   f4 <-hunt   █ ~n"
  117.       insert-string "f5 fkeys    f6 help     █  Available function key Pages include:~n"
  118.  
  119. --- 255,261 -----
  120.   ;    bring up the function key window
  121.   
  122.       1 split-current-window
  123. !     1 select-buffer "Function Keys"
  124.       insert-string "f1 search-> f2 <-search █    MicroEMACS:  Text Editor~n"
  125.       insert-string "f3 hunt->   f4 <-hunt   █ ~n"
  126.       insert-string "f5 fkeys    f6 help     █  Available function key Pages include:~n"
  127. ***************
  128. *** 241,246
  129.       insert-string "f7 nxt wind f8 pg[    ] █    WORD  BOX  EMACS  PASCAL  C   COBOL~n"
  130.       insert-string "f9 save     f10 exit    █  [use the f8 key to load Pages]~n"
  131.       unmark-buffer
  132.       delete-window
  133.       set %rcfkeys FALSE
  134.       execute-macro-1
  135.  
  136. --- 262,268 -----
  137.       insert-string "f7 nxt wind f8 pg[    ] █    WORD  BOX  EMACS  PASCAL  C   COBOL~n"
  138.       insert-string "f9 save     f10 exit    █  [use the f8 key to load Pages]~n"
  139.       unmark-buffer
  140. +     add-mode view
  141.       delete-window
  142.       set %rcfkeys FALSE
  143.   ;    execute-macro-1
  144. ***************
  145. *** 243,247
  146.       unmark-buffer
  147.       delete-window
  148.       set %rcfkeys FALSE
  149. !     execute-macro-1
  150.       set $discmd TRUE
  151.  
  152. --- 265,269 -----
  153.       add-mode view
  154.       delete-window
  155.       set %rcfkeys FALSE
  156. ! ;    execute-macro-1
  157.       set $discmd TRUE
  158.